home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qmaker.zip / EXAMPLE.Q-A next >
Text File  |  1990-09-09  |  6KB  |  232 lines
  1. EXAMPLE Q-A:
  2. ============
  3.  
  4. This example New_User.q-a demonstrates almost all of the options available
  5. to you in the creation of a Questionaire. Examine it carefully and it might
  6. help you to develope ideas on ways in which RA/QBBS questionaire language can
  7. be used. Good luck!.....and have FUN!
  8. -------------------------
  9. New_User.Q-A
  10. -------------------------
  11. PostInfo
  12. DisplayFile BBSRULES
  13. Display "|"
  14. Display "|"
  15. ChangeColor 11 0
  16. Display "                          Dark Shadows BBS (1:208/304)|"
  17. Display "                                Lodi, California|"
  18. Display "                             New User Questionaire|"
  19. Display "|"
  20. ChangeColor 14 0
  21. Display "This information will remain confidential to the SysOp.|"
  22. Display "Completing this survey is required for long term access to|"
  23. Display "this system. The information that I receive from this|"
  24. Display "survey will be used to help make the board better serve, YOU,|"
  25. Display "the user.||"
  26. Display "You are given the choice whether you want to save your answers or|"
  27. Display "not at the end of the survey.|"
  28.  
  29. ChangeColor 4 0
  30. Display "                                 ["
  31. ChangeColor 7 0
  32. Display "--------------------"
  33. ChangeColor 4 0
  34. Display "]|"
  35. ChangeColor 11 0
  36. Display "What is your name (First & Last)? "
  37. Ask 20 1
  38. Display "|"
  39. If 1 = ""
  40. ClearScreen
  41. quit
  42. EndIf
  43. ChangeColor 4 0
  44. Display "                            ["
  45. ChangeColor 7 0
  46. Display "------------------------------"
  47. ChangeColor 4 0
  48. Display "]|"
  49. ChangeColor 11 0
  50. Display "What is your street address? "
  51. Ask 30 2
  52. Display "|"
  53. ChangeColor 4 0
  54. Display "                                     ["
  55. ChangeColor 7 0
  56. Display "------------------------------"
  57. ChangeColor 4 0
  58. Display "]|"
  59. ChangeColor 11 0
  60. Display "What City/State are you calling from? "
  61. Ask 30 3
  62. Display "|"
  63. ChangeColor 4 0
  64. Display "                                    ["
  65. ChangeColor 7 0
  66. Display "--------------------"
  67. ChangeColor 4 0
  68. Display "]|"
  69. ChangeColor 11 0
  70. Display "What type of computer are you using? "
  71. Ask 20 4
  72. Display "|"
  73. ChangeColor 4 0
  74. Display "                                                  ["
  75. ChangeColor 7 0
  76. Display "--------------------"
  77. ChangeColor 4 0
  78. Display "]|"
  79. ChangeColor 11 0
  80. Display "What is the name of your terminal/telecom program? "
  81. Ask 20 5
  82. Display "|"
  83. ChangeColor 4 0
  84. Display "                              ["
  85. ChangeColor 7 0
  86. Display "----------------------------------------------"
  87. ChangeColor 4 0
  88. Display "]|"
  89. ChangeColor 11 0
  90. Display "What do you look for on BBS's? "
  91. Ask 45 6
  92. Display "|"
  93. ChangeColor 4 0
  94. Display "                                    ["
  95. ChangeColor 7 0
  96. Display "--"
  97. ChangeColor 4 0
  98. Display "]|"
  99. ChangeColor 11 0
  100. Display "What is your age? (Please be honest) "
  101. Ask 2 7
  102. Display "|"
  103. ChangeColor 4 0
  104. Display "                                ["
  105. ChangeColor 7 0
  106. Display "-"
  107. ChangeColor 4 0
  108. Display "]|"
  109. ChangeColor 11 0
  110. Display "Do you do any programming? (Y/N) "
  111. Ask 1 8
  112. Display "|"
  113. If 8 = "Y"
  114. ChangeColor 4 0
  115. Display "                                 ["
  116. ChangeColor 7 0
  117. Display "---------------------------------------------"
  118. ChangeColor 4 0
  119. Display "]|"
  120. ChangeColor 11 0
  121. Display "What languages do you program in? "
  122. Ask 45 9
  123. Display "|"
  124. EndIf
  125. ChangeColor 4 0
  126. Display "                       ["
  127. ChangeColor 7 0
  128. Display "-"
  129. ChangeColor 4 0
  130. Display "]|"
  131. ChangeColor 11 0
  132. Display "Do you run a BBS? (Y/N) "
  133. Ask 1 10
  134. Display "|"
  135. If 10 = "Y"
  136. ChangeColor 4 0
  137. Display "                                         ["
  138. ChangeColor 7 0
  139. Display "---------------------------------------------"
  140. ChangeColor 4 0
  141. Display "]|"
  142. ChangeColor 11 0
  143. Display "What is the name/number/net# of your BBS? "
  144. Ask 45 11
  145. Display "|"
  146. ChangeColor 4 0
  147. Display "                                          ["
  148. ChangeColor 7 0
  149. Display "-"
  150. ChangeColor 4 0
  151. Display "]|"
  152. ChangeColor 11 0
  153. Display "Is it OK to add you to the BBS list? (Y/N) "
  154. Ask 1 12
  155. EndIf
  156. Display "|"
  157. ChangeColor 4 0
  158. Display "                                                     ["
  159. ChangeColor 7 0
  160. Display "----------------------------------------------"
  161. ChangeColor 4 0
  162. Display "]|"
  163. ChangeColor 11 0
  164. Display "What are some of your other interests, hobbies, etc.? "
  165. Ask 45 13
  166. Display "|"
  167. ClearScreen
  168. Display "               Name: "
  169. ListAnswer 1
  170. Display "            Address: "
  171. ListAnswer 2
  172. Display "         City/State: "
  173. ListAnswer 3
  174. Display "           Computer: "
  175. ListAnswer 4
  176. Display "  Terminal Software: "
  177. ListAnswer 5
  178. Display "           Look for: "
  179. ListAnswer 6
  180. Display "                Age: "
  181. ListAnswer 7
  182. Display "        Programming: "
  183. ListAnswer 8
  184. Display "          Languages: "
  185. ListAnswer 9
  186. Display "                BBS: "
  187. ListAnswer 10
  188. Display "           BBS Info: "
  189. ListAnswer 11
  190. Display "          Ok to add: "
  191. ListAnswer 12
  192. Display "    Other Interests: "
  193. ListAnswer 13
  194. ChangeColor 11 0
  195. Display "|Save these answers (Y/N)? "
  196. GetChoice YN 20
  197. If 20 = "Y"
  198. OutputAnswer "               Name: " 1
  199. OutputAnswer "            Address: " 2
  200. OutputAnswer "         City/State: " 3
  201. OutputAnswer "           Computer: " 4
  202. OutputAnswer "  Terminal Software: " 5
  203. OutputAnswer "           Look for: " 6
  204. OutputAnswer "                Age: " 7
  205. OutputAnswer "        Programming: " 8
  206. OutputAnswer "          Languages: " 9
  207. OutputAnswer "                BBS: " 10
  208. OutputAnswer "           BBS Info: " 11
  209. OutputAnswer "          Ok to add: " 12
  210. OutputAnswer "    Other Interests: " 13
  211. ChangeColor 15 0
  212. Display "|Answers saved!  Thank you for filling out the Questionaire.|"
  213. Display "|Please read the system bulletins OFTEN!|"
  214. Display "|Have FUN! and I hope you Enjoy Dark Shadows BBS!|"
  215. SetFlag D1 OFF
  216. SetSecurity 10
  217. If 10 = "Y"
  218. SetSecurity 40
  219. EndIf
  220. EndIf
  221.  
  222. If 20 = "N"
  223. ChangeColor 15 0
  224. Display "|Answers discarded - Please re-enter if you like.|"
  225. ChangeColor 7 0
  226. EndIf
  227.  
  228.  
  229.                                 -----End-----
  230.  
  231.  
  232.